/ Developer CD Series 1997 March: Technology Seed / Mac Tech Seed Mar '97.toast / Tempo a2c5 / Software / Software Installers / ARA Client Install / Modem CCLs / PSI PowerModem II

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 50 53 49 20 50 6f | 77 65 72 4d 6f 64 65 6d |..PSI Po|werModem|
|00000010| 20 49 49 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | II.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6d 6c 74 73 73 6c 6e | 6b 00 00 00 00 00 00 00 |.mltssln|k.......|
|00000050| 00 00 00 00 00 1a 7a 00 | 00 03 10 ad cb 55 40 ad |......z.|.....U@.|
|00000060| cb 55 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.U@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 31 d1 00 00 |........|....1...|
|00000080| 21 20 20 50 53 49 20 50 | 6f 77 65 72 4d 6f 64 65 |!  PSI P|owerMode|
|00000090| 6d 20 49 49 20 20 37 2f | 32 38 2f 39 33 20 20 53 |m II  7/|28/93  S|
|000000a0| 44 48 0d 21 0d 21 20 20 | 27 6d 6c 74 73 27 20 72 |DH.!.!  |'mlts' r|
|000000b0| 65 73 6f 75 72 63 65 20 | 69 6e 66 6f 20 66 6f 72 |esource |info for|
|000000c0| 20 74 68 69 73 20 6d 6f | 64 65 6d 3a 0d 21 20 20 | this mo|dem:.!  |
|000000d0| 20 20 62 79 74 65 20 31 | 20 3d 3d 20 30 31 20 2d |  byte 1| == 01 -|
|000000e0| 3e 20 6d 6f 64 65 6d 20 | 48 41 53 20 62 75 69 6c |> modem |HAS buil|
|000000f0| 74 69 6e 20 72 65 6c 69 | 61 62 69 6c 69 74 79 20 |tin reli|ability |
|00000100| 70 72 6f 74 6f 63 6f 6c | 73 0d 21 20 20 20 20 62 |protocol|s.!    b|
|00000110| 79 74 65 20 32 20 3d 3d | 20 30 30 20 2d 3e 20 72 |yte 2 ==| 00 -> r|
|00000120| 65 73 65 72 76 65 64 20 | 62 79 20 41 70 70 6c 65 |eserved |by Apple|
|00000130| 0d 21 20 20 20 20 62 79 | 74 65 20 33 20 3d 3d 20 |.!    by|te 3 == |
|00000140| 46 46 20 2d 3e 20 6d 61 | 78 20 68 65 78 20 63 68 |FF -> ma|x hex ch|
|00000150| 61 72 73 20 69 6e 20 76 | 61 72 73 74 72 20 37 20 |ars in v|arstr 7 |
|00000160| 28 32 35 35 20 64 65 63 | 29 0d 21 20 20 20 20 62 |(255 dec|).!    b|
|00000170| 79 74 65 20 34 20 3d 3d | 20 46 46 20 2d 3e 20 6d |yte 4 ==| FF -> m|
|00000180| 61 78 20 68 65 78 20 63 | 68 61 72 73 20 69 6e 20 |ax hex c|hars in |
|00000190| 76 61 72 73 74 72 20 38 | 0d 21 20 20 20 20 62 79 |varstr 8|.!    by|
|000001a0| 74 65 20 35 20 3d 3d 20 | 46 46 20 2d 3e 20 6d 61 |te 5 == |FF -> ma|
|000001b0| 78 20 68 65 78 20 63 68 | 61 72 73 20 69 6e 20 76 |x hex ch|ars in v|
|000001c0| 61 72 73 74 72 20 39 0d | 21 0d 40 4f 52 49 47 49 |arstr 9.|!.@ORIGI|
|000001d0| 4e 41 54 45 0d 40 41 4e | 53 57 45 52 0d 21 0d 21 |NATE.@AN|SWER.!.!|
|000001e0| 20 53 65 74 20 75 70 20 | 74 68 65 20 6d 6f 64 65 | Set up |the mode|
|000001f0| 6d 20 2d 20 6c 61 62 65 | 6c 20 72 61 6e 67 65 20 |m - labe|l range |
|00000200| 69 73 20 31 2d 31 30 0d | 21 0d 21 20 4d 61 63 20 |is 1-10.|!.! Mac |
|00000210| 74 61 6c 6b 73 20 74 6f | 20 74 68 65 20 6d 6f 64 |talks to| the mod|
|00000220| 65 6d 20 61 74 20 32 34 | 30 30 20 62 70 73 2e 20 |em at 24|00 bps. |
|00000230| 20 0d 73 65 72 72 65 73 | 65 74 20 32 34 30 30 2c | .serres|et 2400,|
|00000240| 20 30 2c 20 38 2c 20 31 | 0d 21 0d 73 65 74 74 72 | 0, 8, 1|.!.settr|
|00000250| 69 65 73 20 30 0d 21 20 | 70 61 75 73 65 20 74 6f |ies 0.! |pause to|
|00000260| 20 67 69 76 65 20 74 68 | 65 20 6d 6f 64 65 6d 20 | give th|e modem |
|00000270| 74 69 6d 65 20 74 6f 20 | 70 6f 77 65 72 20 75 70 |time to |power up|
|00000280| 0d 70 61 75 73 65 20 32 | 30 0d 21 0d 40 4c 41 42 |.pause 2|0.!.@LAB|
|00000290| 45 4c 20 31 0d 66 6c 75 | 73 68 0d 6d 61 74 63 68 |EL 1.flu|sh.match|
|000002a0| 63 6c 72 0d 6d 61 74 63 | 68 73 74 72 20 31 20 33 |clr.matc|hstr 1 3|
|000002b0| 20 22 4f 4b 5c 31 33 5c | 31 30 22 0d 21 20 26 66 | "OK\13\|10".! &f|
|000002c0| 20 20 2d 20 72 65 63 61 | 6c 6c 20 66 61 63 74 6f |  - reca|ll facto|
|000002d0| 72 79 20 73 65 74 74 69 | 6e 67 73 0d 21 20 26 64 |ry setti|ngs.! &d|
|000002e0| 30 20 2d 20 69 67 6e 6f | 72 65 20 44 54 52 20 66 |0 - igno|re DTR f|
|000002f0| 72 6f 6d 20 44 54 45 0d | 21 20 5c 6b 30 20 2d 20 |rom DTE.|! \k0 - |
|00000300| 45 6e 74 65 72 20 63 6f | 6d 6d 61 6e 64 20 73 74 |Enter co|mmand st|
|00000310| 61 74 65 20 62 75 74 20 | 64 6f 20 6e 6f 74 20 73 |ate but |do not s|
|00000320| 65 6e 64 20 62 72 65 61 | 6b 0d 21 20 5c 4a 30 20 |end brea|k.! \J0 |
|00000330| 2d 20 64 69 73 61 62 6c | 65 20 61 75 74 6f 20 70 |- disabl|e auto p|
|00000340| 6f 72 74 20 72 61 74 65 | 20 61 64 6a 75 73 74 0d |ort rate| adjust.|
|00000350| 21 20 73 37 3d 31 32 30 | 20 2d 20 54 6f 20 61 6c |! s7=120| - To al|
|00000360| 6c 6f 77 20 66 6f 72 20 | 61 6e 20 69 6e 74 65 72 |low for |an inter|
|00000370| 6e 61 74 69 6f 6e 61 6c | 20 63 61 6c 6c 0d 21 20 |national| call.! |
|00000380| 53 30 3d 30 20 2d 20 44 | 6f 6e 27 74 20 61 6e 73 |S0=0 - D|on't ans|
|00000390| 77 65 72 20 63 61 6c 6c | 73 0d 21 20 45 30 20 20 |wer call|s.! E0  |
|000003a0| 20 2d 20 54 75 72 6e 20 | 63 6f 6d 6d 61 6e 64 20 | - Turn |command |
|000003b0| 65 63 68 6f 20 6f 66 66 | 0d 21 20 57 32 20 2d 20 |echo off|.! W2 - |
|000003c0| 72 65 70 6f 72 74 20 44 | 43 45 20 73 70 65 65 64 |report D|CE speed|
|000003d0| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 44 54 45 0d | instead| of DTE.|
|000003e0| 21 20 26 4b 30 20 2d 20 | 65 6e 61 62 6c 65 20 43 |! &K0 - |enable C|
|000003f0| 54 53 2f 52 54 53 20 66 | 6c 6f 77 20 63 6f 6e 74 |TS/RTS f|low cont|
|00000400| 72 6f 6c 0d 21 20 5c 4e | 33 20 2d 20 76 34 32 20 |rol.! \N|3 - v42 |
|00000410| 61 75 74 6f 72 65 6c 69 | 61 62 6c 65 20 6d 6f 64 |autoreli|able mod|
|00000420| 65 0d 21 20 25 43 30 20 | 2d 20 63 6f 6d 70 72 65 |e.! %C0 |- compre|
|00000430| 73 73 69 6f 6e 20 64 69 | 73 61 62 6c 65 64 0d 21 |ssion di|sabled.!|
|00000440| 20 53 39 35 3d 31 32 20 | 2d 20 28 64 65 63 29 20 | S95=12 |- (dec) |
|00000450| 67 69 76 65 73 20 50 52 | 4f 54 4f 43 4f 4c 3a 20 |gives PR|OTOCOL: |
|00000460| 61 6e 64 20 43 41 52 52 | 49 45 52 20 72 65 73 75 |and CARR|IER resu|
|00000470| 6c 74 20 63 6f 64 65 73 | 0d 77 72 69 74 65 20 22 |lt codes|.write "|
|00000480| 41 54 26 46 26 44 30 5c | 5c 4b 30 5c 5c 4a 30 53 |AT&F&D0\|\K0\\J0S|
|00000490| 37 3d 31 32 30 53 30 3d | 30 45 30 57 32 5c 5c 4e |7=120S0=|0E0W2\\N|
|000004a0| 33 26 4b 33 25 43 30 53 | 39 35 3d 31 32 5c 31 33 |3&K3%C0S|95=12\13|
|000004b0| 22 0d 6d 61 74 63 68 72 | 65 61 64 20 33 30 0d 69 |".matchr|ead 30.i|
|000004c0| 6e 63 74 72 69 65 73 0d | 69 66 74 72 69 65 73 20 |nctries.|iftries |
|000004d0| 32 20 37 31 0d 21 20 4d | 6f 64 65 6d 20 69 73 20 |2 71.! M|odem is |
|000004e0| 6e 6f 74 20 72 65 73 70 | 6f 6e 64 69 6e 67 2c 20 |not resp|onding, |
|000004f0| 73 65 6e 64 20 61 20 73 | 68 6f 72 74 20 62 72 65 |send a s|hort bre|
|00000500| 61 6b 2e 0d 53 42 72 65 | 61 6b 0d 6a 75 6d 70 20 |ak..SBre|ak.jump |
|00000510| 31 0d 21 0d 40 4c 41 42 | 45 4c 20 33 0d 21 20 4d |1.!.@LAB|EL 3.! M|
|00000520| 6f 64 65 6d 20 72 65 73 | 70 6f 6e 64 69 6e 67 20 |odem res|ponding |
|00000530| 26 20 63 6f 6e 66 69 67 | 75 72 65 64 2e 0d 21 20 |& config|ured..! |
|00000540| 44 65 74 65 72 6d 69 6e | 65 20 69 66 20 72 65 6c |Determin|e if rel|
|00000550| 69 61 62 6c 65 20 6c 69 | 6e 6b 20 69 73 20 72 65 |iable li|nk is re|
|00000560| 71 75 65 73 74 65 64 2e | 0d 21 0d 21 20 49 66 20 |quested.|.!.! If |
|00000570| 6d 6f 64 65 6d 20 6d 6e | 70 31 30 20 6c 69 6e 6b |modem mn|p10 link|
|00000580| 20 72 65 71 75 65 73 74 | 65 64 20 28 76 61 72 20 | request|ed (var |
|00000590| 34 20 3d 3d 20 32 29 20 | 74 68 65 6e 20 6a 75 6d |4 == 2) |then jum|
|000005a0| 70 20 6c 61 62 65 6c 20 | 34 0d 21 20 49 66 20 6d |p label |4.! If m|
|000005b0| 6f 64 65 6d 20 76 34 32 | 20 6c 69 6e 6b 20 72 65 |odem v42| link re|
|000005c0| 71 75 65 73 74 65 64 20 | 28 76 61 72 20 34 20 3d |quested |(var 4 =|
|000005d0| 3d 20 31 29 20 74 68 65 | 6e 20 6a 75 6d 70 20 6c |= 1) the|n jump l|
|000005e0| 61 62 65 6c 20 35 0d 21 | 20 49 66 20 6e 6f 20 6d |abel 5.!| If no m|
|000005f0| 6f 64 65 6d 20 76 34 32 | 20 6c 69 6e 6b 20 72 65 |odem v42| link re|
|00000600| 71 75 65 73 74 65 64 20 | 28 76 61 72 20 34 20 3d |quested |(var 4 =|
|00000610| 3d 20 30 29 20 5b 73 61 | 6d 65 20 61 73 20 41 52 |= 0) [sa|me as AR|
|00000620| 41 20 31 2e 30 5d 20 74 | 68 65 6e 20 6a 75 6d 70 |A 1.0] t|hen jump|
|00000630| 20 6c 61 62 65 6c 20 39 | 0d 21 0d 69 66 73 74 72 | label 9|.!.ifstr|
|00000640| 20 34 20 34 20 22 32 22 | 0d 69 66 73 74 72 20 34 | 4 4 "2"|.ifstr 4|
|00000650| 20 35 20 22 31 22 0d 69 | 66 73 74 72 20 34 20 39 | 5 "1".i|fstr 4 9|
|00000660| 20 22 30 22 0d 21 0d 21 | 20 45 6c 73 65 20 69 6e | "0".!.!| Else in|
|00000670| 76 61 6c 69 64 20 76 61 | 6c 75 65 20 69 6e 20 76 |valid va|lue in v|
|00000680| 61 72 20 34 2c 20 65 78 | 69 74 20 77 69 74 68 20 |ar 4, ex|it with |
|00000690| 65 72 72 6f 72 0d 6a 75 | 6d 70 20 37 36 0d 21 0d |error.ju|mp 76.!.|
|000006a0| 21 0d 40 4c 41 42 45 4c | 20 34 0d 21 20 52 65 6c |!.@LABEL| 4.! Rel|
|000006b0| 69 61 62 6c 65 20 4d 4e | 50 31 30 20 6c 69 6e 6b |iable MN|P10 link|
|000006c0| 20 69 73 20 72 65 71 75 | 65 73 74 65 64 0d 6d 61 | is requ|ested.ma|
|000006d0| 74 63 68 63 6c 72 0d 6d | 61 74 63 68 73 74 72 20 |tchclr.m|atchstr |
|000006e0| 31 20 37 20 22 4f 4b 5c | 31 33 5c 31 30 22 0d 21 |1 7 "OK\|13\10".!|
|000006f0| 20 5c 4e 32 20 2d 20 6d | 6e 70 20 72 65 6c 69 61 | \N2 - m|np relia|
|00000700| 62 6c 65 20 6d 6f 64 65 | 20 0d 21 20 2d 4b 31 20 |ble mode| .! -K1 |
|00000710| 2d 20 65 6e 61 62 6c 65 | 73 20 56 2e 34 32 20 4c |- enable|s V.42 L|
|00000720| 41 50 4d 20 74 6f 20 4d | 4e 50 31 30 20 63 6f 6e |APM to M|NP10 con|
|00000730| 76 65 72 73 69 6f 6e 0d | 21 20 29 4d 31 20 2d 20 |version.|! )M1 - |
|00000740| 65 6e 61 62 6c 65 20 70 | 6f 77 65 72 20 6c 65 76 |enable p|ower lev|
|00000750| 65 6c 20 61 64 6a 75 73 | 74 6d 65 6e 74 0d 77 72 |el adjus|tment.wr|
|00000760| 69 74 65 20 22 41 54 5c | 5c 4e 32 2d 4b 31 29 4d |ite "AT\|\N2-K1)M|
|00000770| 31 5c 31 33 22 0d 6d 61 | 74 63 68 72 65 61 64 20 |1\13".ma|tchread |
|00000780| 33 30 30 0d 6a 75 6d 70 | 20 37 31 0d 21 0d 40 4c |300.jump| 71.!.@L|
|00000790| 41 42 45 4c 20 35 0d 21 | 20 79 65 73 2c 20 76 34 |ABEL 5.!| yes, v4|
|000007a0| 32 20 6c 69 6e 6b 20 69 | 73 20 72 65 71 75 65 73 |2 link i|s reques|
|000007b0| 74 65 64 2e 20 20 4f 4b | 20 66 6f 72 20 4c 41 50 |ted.  OK| for LAP|
|000007c0| 2d 4d 20 2d 3e 20 4d 4e | 50 20 34 2e 0d 6d 61 74 |-M -> MN|P 4..mat|
|000007d0| 63 68 63 6c 72 0d 6d 61 | 74 63 68 73 74 72 20 31 |chclr.ma|tchstr 1|
|000007e0| 20 37 20 22 4f 4b 5c 31 | 33 5c 31 30 22 0d 21 20 | 7 "OK\1|3\10".! |
|000007f0| 5c 4e 33 20 2d 20 76 34 | 32 20 61 75 74 6f 72 65 |\N3 - v4|2 autore|
|00000800| 6c 69 61 62 6c 65 20 6d | 6f 64 65 0d 21 20 2d 4b |liable m|ode.! -K|
|00000810| 30 20 2d 20 4d 4e 50 31 | 30 20 75 70 73 68 69 66 |0 - MNP1|0 upshif|
|00000820| 74 20 64 69 73 61 62 6c | 65 64 0d 77 72 69 74 65 |t disabl|ed.write|
|00000830| 20 22 41 54 5c 5c 4e 33 | 2d 4b 30 5c 31 33 22 0d | "AT\\N3|-K0\13".|
|00000840| 6d 61 74 63 68 72 65 61 | 64 20 33 30 30 0d 6a 75 |matchrea|d 300.ju|
|00000850| 6d 70 20 37 31 0d 21 0d | 40 4c 41 42 45 4c 20 37 |mp 71.!.|@LABEL 7|
|00000860| 0d 21 20 49 66 20 77 65 | 20 44 49 44 20 73 75 70 |.! If we| DID sup|
|00000870| 70 6f 72 74 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |port com|pression|
|00000880| 20 69 6e 20 74 68 65 20 | 6d 6f 64 65 6d 2c 20 74 | in the |modem, t|
|00000890| 68 69 73 20 69 73 20 77 | 68 65 72 65 20 69 74 20 |his is w|here it |
|000008a0| 77 6f 75 6c 64 20 67 6f | 2e 0d 21 0d 40 4c 41 42 |would go|..!.@LAB|
|000008b0| 45 4c 20 39 0d 21 20 49 | 66 20 73 70 65 61 6b 65 |EL 9.! I|f speake|
|000008c0| 72 20 6f 6e 20 66 6c 61 | 67 20 69 73 20 74 72 75 |r on fla|g is tru|
|000008d0| 65 2c 20 6a 75 6d 70 20 | 74 6f 20 6c 61 62 65 6c |e, jump |to label|
|000008e0| 20 31 33 2e 20 20 45 6c | 73 65 20 74 75 72 6e 20 | 13.  El|se turn |
|000008f0| 6f 66 66 20 74 68 65 20 | 73 70 65 61 6b 65 72 2e |off the |speaker.|
|00000900| 0d 69 66 73 74 72 20 32 | 20 31 33 20 22 31 22 0d |.ifstr 2| 13 "1".|
|00000910| 70 61 75 73 65 20 35 0d | 6d 61 74 63 68 63 6c 72 |pause 5.|matchclr|
|00000920| 0d 6d 61 74 63 68 73 74 | 72 20 31 20 31 33 20 22 |.matchst|r 1 13 "|
|00000930| 4f 4b 5c 31 33 5c 31 30 | 22 0d 77 72 69 74 65 20 |OK\13\10|".write |
|00000940| 22 41 54 4d 30 5c 31 33 | 22 0d 6d 61 74 63 68 72 |"ATM0\13|".matchr|
|00000950| 65 61 64 20 33 30 0d 6a | 75 6d 70 20 37 31 0d 21 |ead 30.j|ump 71.!|
|00000960| 0d 21 20 4d 6f 64 65 6d | 20 72 65 61 64 79 2c 20 |.! Modem| ready, |
|00000970| 73 6f 20 65 6e 61 62 6c | 65 20 61 6e 73 77 65 72 |so enabl|e answer|
|00000980| 20 6f 72 20 64 69 61 6c | 20 6d 6f 64 65 20 2d 20 | or dial| mode - |
|00000990| 6c 61 62 65 6c 20 72 61 | 6e 67 65 20 69 73 20 31 |label ra|nge is 1|
|000009a0| 31 2d 33 30 0d 21 20 44 | 65 74 65 72 6d 69 6e 65 |1-30.! D|etermine|
|000009b0| 20 69 66 20 61 6e 73 77 | 65 72 20 6f 72 20 6f 72 | if answ|er or or|
|000009c0| 69 67 69 6e 61 74 65 20 | 6d 6f 64 65 2e 0d 21 0d |iginate |mode..!.|
|000009d0| 40 4c 41 42 45 4c 20 31 | 33 0d 70 61 75 73 65 20 |@LABEL 1|3.pause |
|000009e0| 35 0d 69 66 41 4e 53 57 | 45 52 20 36 32 0d 21 0d |5.ifANSW|ER 62.!.|
|000009f0| 21 20 44 69 61 6c 20 74 | 79 70 65 20 64 69 73 70 |! Dial t|ype disp|
|00000a00| 61 74 63 68 0d 21 0d 21 | 20 4e 6f 72 6d 61 6c 20 |atch.!.!| Normal |
|00000a10| 64 69 61 6c 69 6e 67 20 | 28 70 61 72 6d 20 36 20 |dialing |(parm 6 |
|00000a20| 3d 3d 20 30 29 20 6a 75 | 6d 70 20 74 6f 20 31 39 |== 0) ju|mp to 19|
|00000a30| 0d 21 20 42 6c 69 6e 64 | 20 20 64 69 61 6c 69 6e |.! Blind|  dialin|
|00000a40| 67 20 28 70 61 72 6d 20 | 36 20 3d 3d 20 31 29 20 |g (parm |6 == 1) |
|00000a50| 6a 75 6d 70 20 74 6f 20 | 31 37 0d 21 20 4d 61 6e |jump to |17.! Man|
|00000a60| 75 61 6c 20 64 69 61 6c | 69 6e 67 20 28 70 61 72 |ual dial|ing (par|
|00000a70| 6d 20 36 20 3d 3d 20 32 | 29 20 6a 75 6d 70 20 74 |m 6 == 2|) jump t|
|00000a80| 6f 20 31 35 20 0d 21 0d | 69 66 73 74 72 20 36 20 |o 15 .!.|ifstr 6 |
|00000a90| 31 39 20 22 30 22 0d 69 | 66 73 74 72 20 36 20 31 |19 "0".i|fstr 6 1|
|00000aa0| 37 20 22 31 22 0d 69 66 | 73 74 72 20 36 20 31 35 |7 "1".if|str 6 15|
|00000ab0| 20 22 32 22 0d 21 0d 21 | 20 45 6c 73 65 20 69 6e | "2".!.!| Else in|
|00000ac0| 76 61 6c 69 64 20 76 61 | 6c 75 65 20 69 6e 20 76 |valid va|lue in v|
|00000ad0| 61 72 20 36 2c 20 65 78 | 69 74 20 77 69 74 68 20 |ar 6, ex|it with |
|00000ae0| 65 72 72 6f 72 0d 6a 75 | 6d 70 20 37 36 0d 21 0d |error.ju|mp 76.!.|
|00000af0| 40 6c 61 62 65 6c 20 31 | 35 0d 41 53 4b 20 32 20 |@label 1|5.ASK 2 |
|00000b00| 22 50 69 63 6b 20 75 70 | 20 74 68 65 20 70 68 6f |"Pick up| the pho|
|00000b10| 6e 65 20 26 20 64 69 61 | 6c 20 5e 31 2e 20 20 48 |ne & dia|l ^1.  H|
|00000b20| 69 74 20 4f 4b 20 77 68 | 65 6e 20 74 68 65 20 70 |it OK wh|en the p|
|00000b30| 68 6f 6e 65 20 72 69 6e | 67 73 2c 20 74 68 65 6e |hone rin|gs, then|
|00000b40| 20 68 61 6e 67 75 70 2e | 22 20 38 30 0d 6e 6f 74 | hangup.|" 80.not|
|00000b50| 65 20 22 4d 61 6e 75 61 | 6c 20 64 69 61 6c 69 6e |e "Manua|l dialin|
|00000b60| 67 20 69 6e 69 74 69 61 | 74 65 64 2e 2e 2e 22 20 |g initia|ted..." |
|00000b70| 33 0d 21 20 58 31 20 74 | 6f 20 69 67 6e 6f 72 65 |3.! X1 t|o ignore|
|00000b80| 20 64 69 61 6c 74 6f 6e | 65 20 26 20 62 75 73 79 | dialton|e & busy|
|00000b90| 20 66 6f 72 20 6d 61 6e | 75 61 6c 20 64 69 61 6c | for man|ual dial|
|00000ba0| 69 6e 67 2c 20 44 20 74 | 6f 20 64 69 61 6c 0d 77 |ing, D t|o dial.w|
|00000bb0| 72 69 74 65 20 22 41 54 | 58 31 44 20 5c 31 33 22 |rite "AT|X1D \13"|
|00000bc0| 0d 6a 75 6d 70 20 33 32 | 0d 21 0d 40 6c 61 62 65 |.jump 32|.!.@labe|
|00000bd0| 6c 20 31 37 0d 6e 6f 74 | 65 20 22 44 69 61 6c 69 |l 17.not|e "Diali|
|00000be0| 6e 67 20 77 69 74 68 6f | 75 74 20 64 69 61 6c 74 |ng witho|ut dialt|
|00000bf0| 6f 6e 65 2e 22 20 33 0d | 6d 61 74 63 68 63 6c 72 |one." 3.|matchclr|
|00000c00| 0d 6d 61 74 63 68 73 74 | 72 20 31 20 31 39 20 22 |.matchst|r 1 19 "|
|00000c10| 4f 4b 5c 31 33 5c 31 30 | 22 0d 21 20 58 31 20 74 |OK\13\10|".! X1 t|
|00000c20| 6f 20 69 67 6e 6f 72 65 | 20 64 69 61 6c 74 6f 6e |o ignore| dialton|
|00000c30| 65 20 26 20 62 75 73 79 | 20 66 6f 72 20 62 6c 69 |e & busy| for bli|
|00000c40| 6e 64 20 64 69 61 6c 69 | 6e 67 0d 77 72 69 74 65 |nd diali|ng.write|
|00000c50| 20 22 41 54 58 31 5c 31 | 33 22 0d 6d 61 74 63 68 | "ATX1\1|3".match|
|00000c60| 72 65 61 64 20 33 30 0d | 6a 75 6d 70 20 37 31 0d |read 30.|jump 71.|
|00000c70| 21 0d 21 20 54 68 69 73 | 20 69 73 20 77 68 65 72 |!.! This| is wher|
|00000c80| 65 20 77 65 20 62 72 65 | 61 6b 20 75 70 20 6c 6f |e we bre|ak up lo|
|00000c90| 6e 67 20 64 69 61 6c 73 | 74 72 69 6e 67 73 20 2d |ng dials|trings -|
|00000ca0| 20 6c 61 62 65 6c 20 72 | 61 6e 67 65 20 69 73 20 | label r|ange is |
|00000cb0| 31 39 20 2d 20 32 37 2e | 0d 21 0d 40 6c 61 62 65 |19 - 27.|.!.@labe|
|00000cc0| 6c 20 31 39 0d 21 20 50 | 61 72 61 6d 65 74 65 72 |l 19.! P|arameter|
|00000cd0| 20 31 20 63 6f 6e 74 61 | 69 6e 73 20 74 68 65 20 | 1 conta|ins the |
|00000ce0| 66 75 6c 6c 20 64 69 61 | 6c 73 74 72 69 6e 67 20 |full dia|lstring |
|00000cf0| 66 72 6f 6d 20 74 68 65 | 20 63 6f 6e 6e 65 63 74 |from the| connect|
|00000d00| 69 6f 6e 20 64 6f 63 75 | 6d 65 6e 74 2e 0d 21 20 |ion docu|ment..! |
|00000d10| 50 61 72 61 6d 65 74 65 | 72 20 33 20 63 6f 6e 74 |Paramete|r 3 cont|
|00000d20| 61 69 6e 73 20 22 50 22 | 20 66 6f 72 20 70 75 6c |ains "P"| for pul|
|00000d30| 73 65 20 26 20 22 54 22 | 20 66 6f 72 20 74 6f 6e |se & "T"| for ton|
|00000d40| 65 20 64 69 61 6c 69 6e | 67 2e 0d 21 20 50 61 72 |e dialin|g..! Par|
|00000d50| 61 6d 65 74 65 72 73 20 | 37 2c 20 38 20 26 20 39 |ameters |7, 8 & 9|
|00000d60| 20 63 6f 6e 74 61 69 6e | 20 74 68 65 20 64 69 61 | contain| the dia|
|00000d70| 6c 20 73 74 72 69 6e 67 | 20 62 72 6f 6b 65 6e 20 |l string| broken |
|00000d80| 75 70 20 69 6e 74 6f 0d | 21 20 6c 65 6e 67 74 68 |up into.|! length|
|00000d90| 73 20 77 68 69 63 68 20 | 74 68 65 20 6d 6f 64 65 |s which |the mode|
|00000da0| 6d 27 73 20 63 6f 6d 6d | 61 6e 64 20 62 75 66 66 |m's comm|and buff|
|00000db0| 65 72 20 63 61 6e 20 68 | 61 6e 64 6c 65 20 61 73 |er can h|andle as|
|00000dc0| 20 64 65 66 69 6e 65 64 | 0d 21 20 62 79 20 74 68 | defined|.! by th|
|00000dd0| 65 20 27 6d 6c 74 73 27 | 20 72 65 73 6f 75 72 63 |e 'mlts'| resourc|
|00000de0| 65 2e 0d 21 0d 6e 6f 74 | 65 20 22 44 69 61 6c 69 |e..!.not|e "Diali|
|00000df0| 6e 67 20 5e 31 2e 22 20 | 33 0d 21 0d 21 20 49 66 |ng ^1." |3.!.! If|
|00000e00| 20 70 61 72 6d 20 38 20 | 69 73 20 62 6c 61 6e 6b | parm 8 |is blank|
|00000e10| 20 67 6f 74 6f 20 73 65 | 6e 64 69 6e 67 20 70 61 | goto se|nding pa|
|00000e20| 72 6d 20 37 20 6f 6e 6c | 79 0d 21 20 65 6c 73 65 |rm 7 onl|y.! else|
|00000e30| 20 73 65 6e 64 20 70 61 | 72 6d 20 37 20 77 69 74 | send pa|rm 7 wit|
|00000e40| 68 20 73 65 6d 69 63 6f | 6c 6f 6e 0d 69 66 73 74 |h semico|lon.ifst|
|00000e50| 72 20 38 20 32 35 20 22 | 20 22 0d 21 0d 6d 61 74 |r 8 25 "| ".!.mat|
|00000e60| 63 68 63 6c 72 0d 6d 61 | 74 63 68 73 74 72 20 31 |chclr.ma|tchstr 1|
|00000e70| 20 32 31 20 22 4f 4b 5c | 31 33 5c 31 30 22 0d 77 | 21 "OK\|13\10".w|
|00000e80| 72 69 74 65 20 22 41 54 | 44 5e 33 5e 37 3b 5c 31 |rite "AT|D^3^7;\1|
|00000e90| 33 22 0d 6d 61 74 63 68 | 72 65 61 64 20 34 30 30 |3".match|read 400|
|00000ea0| 0d 6a 75 6d 70 20 37 31 | 0d 21 0d 21 20 49 66 20 |.jump 71|.!.! If |
|00000eb0| 70 61 72 6d 20 39 20 69 | 73 20 62 6c 61 6e 6b 20 |parm 9 i|s blank |
|00000ec0| 67 6f 74 6f 20 73 65 6e | 64 69 6e 67 20 70 61 72 |goto sen|ding par|
|00000ed0| 61 6d 20 38 0d 21 20 65 | 6c 73 65 20 73 65 6e 64 |am 8.! e|lse send|
|00000ee0| 20 70 61 72 61 6d 20 38 | 20 77 69 74 68 20 73 65 | param 8| with se|
|00000ef0| 6d 69 63 6f 6c 6f 6e 20 | 26 20 70 61 72 61 6d 20 |micolon |& param |
|00000f00| 39 0d 40 6c 61 62 65 6c | 20 32 31 0d 69 66 73 74 |9.@label| 21.ifst|
|00000f10| 72 20 39 20 32 37 20 22 | 20 22 0d 21 0d 6d 61 74 |r 9 27 "| ".!.mat|
|00000f20| 63 68 63 6c 72 0d 6d 61 | 74 63 68 73 74 72 20 31 |chclr.ma|tchstr 1|
|00000f30| 20 32 33 20 22 4f 4b 5c | 31 33 5c 31 30 22 0d 77 | 23 "OK\|13\10".w|
|00000f40| 72 69 74 65 20 22 41 54 | 44 5e 33 5e 38 3b 5c 31 |rite "AT|D^3^8;\1|
|00000f50| 33 22 0d 6d 61 74 63 68 | 72 65 61 64 20 34 30 30 |3".match|read 400|
|00000f60| 0d 6a 75 6d 70 20 37 31 | 0d 21 0d 21 20 53 65 6e |.jump 71|.!.! Sen|
|00000f70| 64 20 66 69 6e 61 6c 20 | 70 61 72 61 6d 65 74 65 |d final |paramete|
|00000f80| 72 20 73 74 72 69 6e 67 | 20 74 68 65 6e 20 77 61 |r string| then wa|
|00000f90| 69 74 20 66 6f 72 0d 21 | 20 63 6f 6e 6e 65 63 74 |it for.!| connect|
|00000fa0| 20 6d 65 73 73 61 67 65 | 2e 0d 21 0d 40 6c 61 62 | message|..!.@lab|
|00000fb0| 65 6c 20 32 33 0d 77 72 | 69 74 65 20 22 41 54 44 |el 23.wr|ite "ATD|
|00000fc0| 5e 33 5e 39 5c 31 33 22 | 0d 6a 75 6d 70 20 33 32 |^3^9\13"|.jump 32|
|00000fd0| 0d 21 0d 40 6c 61 62 65 | 6c 20 32 35 0d 77 72 69 |.!.@labe|l 25.wri|
|00000fe0| 74 65 20 22 41 54 44 5e | 33 5e 37 5c 31 33 22 0d |te "ATD^|3^7\13".|
|00000ff0| 6a 75 6d 70 20 33 32 0d | 21 0d 40 6c 61 62 65 6c |jump 32.|!.@label|
|00001000| 20 32 37 0d 77 72 69 74 | 65 20 22 41 54 44 5e 33 | 27.writ|e "ATD^3|
|00001010| 5e 38 5c 31 33 22 0d 6a | 75 6d 70 20 33 32 0d 21 |^8\13".j|ump 32.!|
|00001020| 0d 21 20 20 20 20 43 6f | 6e 6e 65 63 74 69 6e 67 |.!    Co|nnecting|
|00001030| 20 2d 20 6c 61 62 65 6c | 20 72 61 6e 67 65 20 69 | - label| range i|
|00001040| 73 20 33 31 2d 36 30 0d | 21 0d 40 4c 41 42 45 4c |s 31-60.|!.@LABEL|
|00001050| 20 33 32 0d 6d 61 74 63 | 68 63 6c 72 0d 6d 61 74 | 32.matc|hclr.mat|
|00001060| 63 68 73 74 72 20 31 20 | 20 33 34 20 22 43 4f 4e |chstr 1 | 34 "CON|
|00001070| 4e 45 43 54 20 31 32 30 | 30 5c 31 33 5c 31 30 22 |NECT 120|0\13\10"|
|00001080| 0d 6d 61 74 63 68 73 74 | 72 20 32 20 20 33 35 20 |.matchst|r 2  35 |
|00001090| 22 43 4f 4e 4e 45 43 54 | 20 32 34 30 30 5c 31 33 |"CONNECT| 2400\13|
|000010a0| 5c 31 30 22 0d 21 0d 6d | 61 74 63 68 73 74 72 20 |\10".!.m|atchstr |
|000010b0| 36 20 20 36 38 20 22 52 | 49 4e 47 5c 31 33 5c 31 |6  68 "R|ING\13\1|
|000010c0| 30 22 0d 6d 61 74 63 68 | 73 74 72 20 37 20 20 37 |0".match|str 7  7|
|000010d0| 32 20 22 4e 4f 20 44 49 | 41 4c 54 4f 4e 45 5c 31 |2 "NO DI|ALTONE\1|
|000010e0| 33 5c 31 30 22 0d 6d 61 | 74 63 68 73 74 72 20 38 |3\10".ma|tchstr 8|
|000010f0| 20 20 37 33 20 22 4e 4f | 20 43 41 52 52 49 45 52 |  73 "NO| CARRIER|
|00001100| 5c 31 33 5c 31 30 22 0d | 6d 61 74 63 68 73 74 72 |\13\10".|matchstr|
|00001110| 20 39 20 20 37 33 20 22 | 45 52 52 4f 52 5c 31 33 | 9  73 "|ERROR\13|
|00001120| 5c 31 30 22 0d 6d 61 74 | 63 68 73 74 72 20 31 30 |\10".mat|chstr 10|
|00001130| 20 37 34 20 22 42 55 53 | 59 5c 31 33 5c 31 30 22 | 74 "BUS|Y\13\10"|
|00001140| 0d 6d 61 74 63 68 73 74 | 72 20 31 31 20 37 35 20 |.matchst|r 11 75 |
|00001150| 22 4e 4f 20 41 4e 53 57 | 45 52 5c 31 33 5c 31 30 |"NO ANSW|ER\13\10|
|00001160| 22 0d 21 0d 6d 61 74 63 | 68 73 74 72 20 31 32 20 |".!.matc|hstr 12 |
|00001170| 34 34 20 22 50 52 4f 54 | 4f 43 4f 4c 3a 20 4e 4f |44 "PROT|OCOL: NO|
|00001180| 4e 45 5c 31 33 5c 31 30 | 22 0d 6d 61 74 63 68 73 |NE\13\10|".matchs|
|00001190| 74 72 20 31 33 20 34 35 | 20 22 50 52 4f 54 4f 43 |tr 13 45| "PROTOC|
|000011a0| 4f 4c 3a 20 41 4c 54 5c | 31 33 5c 31 30 22 0d 6d |OL: ALT\|13\10".m|
|000011b0| 61 74 63 68 73 74 72 20 | 31 34 20 34 36 20 22 50 |atchstr |14 46 "P|
|000011c0| 52 4f 54 4f 43 4f 4c 3a | 20 4c 41 50 2d 4d 5c 31 |ROTOCOL:| LAP-M\1|
|000011d0| 33 5c 31 30 22 0d 6d 61 | 74 63 68 73 74 72 20 31 |3\10".ma|tchstr 1|
|000011e0| 35 20 34 37 20 22 50 52 | 4f 54 4f 43 4f 4c 3a 20 |5 47 "PR|OTOCOL: |
|000011f0| 41 4c 54 20 2d 20 43 45 | 4c 4c 55 4c 41 52 5c 31 |ALT - CE|LLULAR\1|
|00001200| 33 5c 31 30 22 0d 21 0d | 6d 61 74 63 68 72 65 61 |3\10".!.|matchrea|
|00001210| 64 20 31 32 30 30 0d 21 | 20 49 66 20 69 6e 20 41 |d 1200.!| If in A|
|00001220| 4e 53 57 45 52 20 6d 6f | 64 65 2c 20 6c 6f 6f 70 |NSWER mo|de, loop|
|00001230| 20 62 61 63 6b 2e 0d 21 | 20 65 6c 73 65 20 69 66 | back..!| else if|
|00001240| 20 69 6e 20 4f 52 49 47 | 49 4e 41 54 45 2c 20 74 | in ORIG|INATE, t|
|00001250| 68 65 20 6d 6f 64 65 6d | 20 68 61 73 20 74 69 6d |he modem| has tim|
|00001260| 65 64 20 6f 75 74 2e 0d | 69 66 41 4e 53 57 45 52 |ed out..|ifANSWER|
|00001270| 20 33 32 0d 6a 75 6d 70 | 20 37 31 0d 21 0d 21 20 | 32.jump| 71.!.! |
|00001280| 20 54 68 69 73 20 56 2e | 32 32 62 69 73 20 6d 6f | This V.|22bis mo|
|00001290| 64 65 6d 20 64 6f 65 73 | 20 6e 6f 74 20 61 73 73 |dem does| not ass|
|000012a0| 75 6d 65 20 61 20 68 61 | 72 64 77 61 72 65 20 68 |ume a ha|rdware h|
|000012b0| 61 6e 64 73 68 61 6b 69 | 6e 67 20 63 61 62 6c 65 |andshaki|ng cable|
|000012c0| 20 69 73 20 75 73 65 64 | 2e 0d 21 20 20 44 54 45 | is used|..!  DTE|
|000012d0| 20 73 70 65 65 64 20 69 | 73 20 63 68 61 6e 67 65 | speed i|s change|
|000012e0| 64 20 74 6f 20 74 68 65 | 20 63 6f 6e 6e 65 63 74 |d to the| connect|
|000012f0| 69 6f 6e 20 73 70 65 65 | 64 2e 0d 21 0d 40 4c 41 |ion spee|d..!.@LA|
|00001300| 42 45 4c 20 33 34 0d 6e | 6f 74 65 20 22 43 6f 6d |BEL 34.n|ote "Com|
|00001310| 6d 75 6e 69 63 61 74 69 | 6e 67 20 61 74 20 31 32 |municati|ng at 12|
|00001320| 30 30 20 62 70 73 2e 22 | 20 32 0d 73 65 72 72 65 |00 bps."| 2.serre|
|00001330| 73 65 74 20 31 32 30 30 | 2c 20 30 2c 20 38 2c 20 |set 1200|, 0, 8, |
|00001340| 31 0d 6a 75 6d 70 20 35 | 38 0d 21 0d 40 4c 41 42 |1.jump 5|8.!.@LAB|
|00001350| 45 4c 20 33 35 0d 6e 6f | 74 65 20 22 43 6f 6d 6d |EL 35.no|te "Comm|
|00001360| 75 6e 69 63 61 74 69 6e | 67 20 61 74 20 32 34 30 |unicatin|g at 240|
|00001370| 30 20 62 70 73 2e 22 20 | 32 0d 73 65 72 72 65 73 |0 bps." |2.serres|
|00001380| 65 74 20 32 34 30 30 2c | 20 30 2c 20 38 2c 20 31 |et 2400,| 0, 8, 1|
|00001390| 0d 6a 75 6d 70 20 35 38 | 0d 21 0d 21 20 52 65 6c |.jump 58|.!.! Rel|
|000013a0| 69 61 62 6c 65 20 6c 69 | 6e 6b 20 63 6f 6e 6e 65 |iable li|nk conne|
|000013b0| 63 74 69 6f 6e 73 2e 0d | 21 20 54 65 6c 6c 20 41 |ctions..|! Tell A|
|000013c0| 52 41 20 77 69 74 68 20 | 55 53 45 52 48 4f 4f 4b |RA with |USERHOOK|
|000013d0| 20 32 20 74 68 61 74 20 | 61 20 6d 6f 64 65 6d 20 | 2 that |a modem |
|000013e0| 72 65 6c 69 61 62 6c 65 | 20 6c 69 6e 6b 20 68 61 |reliable| link ha|
|000013f0| 73 20 62 65 65 6e 20 65 | 73 74 61 62 6c 69 73 68 |s been e|stablish|
|00001400| 65 64 2e 0d 21 0d 40 4c | 41 42 45 4c 20 34 34 0d |ed..!.@L|ABEL 44.|
|00001410| 21 20 6e 6f 20 72 65 6c | 69 61 62 6c 65 20 6c 69 |! no rel|iable li|
|00001420| 6e 6b 20 65 73 74 61 62 | 6c 69 73 68 65 64 0d 6a |nk estab|lished.j|
|00001430| 75 6d 70 20 33 32 0d 21 | 0d 40 4c 41 42 45 4c 20 |ump 32.!|.@LABEL |
|00001440| 34 35 0d 6e 6f 74 65 20 | 22 4d 4e 50 20 72 65 6c |45.note |"MNP rel|
|00001450| 69 61 62 6c 65 20 6c 69 | 6e 6b 20 65 73 74 61 62 |iable li|nk estab|
|00001460| 6c 69 73 68 65 64 2e 22 | 20 33 0d 75 73 65 72 68 |lished."| 3.userh|
|00001470| 6f 6f 6b 20 32 0d 6a 75 | 6d 70 20 33 32 0d 21 0d |ook 2.ju|mp 32.!.|
|00001480| 40 4c 41 42 45 4c 20 34 | 36 0d 6e 6f 74 65 20 22 |@LABEL 4|6.note "|
|00001490| 4c 41 50 2d 4d 20 72 65 | 6c 69 61 62 6c 65 20 6c |LAP-M re|liable l|
|000014a0| 69 6e 6b 20 65 73 74 61 | 62 6c 69 73 68 65 64 2e |ink esta|blished.|
|000014b0| 22 20 33 0d 75 73 65 72 | 68 6f 6f 6b 20 32 0d 6a |" 3.user|hook 2.j|
|000014c0| 75 6d 70 20 33 32 0d 21 | 0d 40 4c 41 42 45 4c 20 |ump 32.!|.@LABEL |
|000014d0| 34 37 0d 6e 6f 74 65 20 | 22 4d 4e 50 31 30 20 72 |47.note |"MNP10 r|
|000014e0| 65 6c 69 61 62 6c 65 20 | 6c 69 6e 6b 20 65 73 74 |eliable |link est|
|000014f0| 61 62 6c 69 73 68 65 64 | 2e 22 20 33 0d 75 73 65 |ablished|." 3.use|
|00001500| 72 68 6f 6f 6b 20 34 0d | 6a 75 6d 70 20 33 32 0d |rhook 4.|jump 32.|
|00001510| 21 0d 40 4c 41 42 45 4c | 20 35 38 0d 21 0d 21 20 |!.@LABEL| 58.!.! |
|00001520| 43 6f 6e 6e 65 63 74 69 | 6f 6e 20 65 73 74 61 62 |Connecti|on estab|
|00001530| 6c 69 73 68 65 64 2e 20 | 49 6e 20 4f 52 49 47 49 |lished. |In ORIGI|
|00001540| 4e 41 54 45 20 6d 6f 64 | 65 20 70 61 75 73 65 20 |NATE mod|e pause |
|00001550| 62 65 66 6f 72 65 20 65 | 78 69 74 2e 0d 21 0d 69 |before e|xit..!.i|
|00001560| 66 41 4e 53 57 45 52 20 | 35 39 0d 70 61 75 73 65 |fANSWER |59.pause|
|00001570| 20 33 30 0d 40 4c 41 42 | 45 4c 20 35 39 0d 65 78 | 30.@LAB|EL 59.ex|
|00001580| 69 74 20 30 0d 21 0d 21 | 20 40 41 4e 53 57 45 52 |it 0.!.!| @ANSWER|
|00001590| 0d 21 20 53 65 74 20 74 | 68 65 20 6d 6f 64 65 6d |.! Set t|he modem|
|000015a0| 20 74 6f 20 61 6e 73 77 | 65 72 20 6f 6e 20 31 73 | to answ|er on 1s|
|000015b0| 74 20 72 69 6e 67 20 2d | 20 6c 61 62 65 6c 20 72 |t ring -| label r|
|000015c0| 61 6e 67 65 20 69 73 20 | 36 31 2d 37 30 0d 21 0d |ange is |61-70.!.|
|000015d0| 40 4c 41 42 45 4c 20 36 | 32 0d 6d 61 74 63 68 63 |@LABEL 6|2.matchc|
|000015e0| 6c 72 0d 6d 61 74 63 68 | 73 74 72 20 31 20 33 32 |lr.match|str 1 32|
|000015f0| 20 22 4f 4b 5c 31 33 5c | 31 30 22 0d 77 72 69 74 | "OK\13\|10".writ|
|00001600| 65 20 22 41 54 53 30 3d | 31 5c 31 33 22 0d 6d 61 |e "ATS0=|1\13".ma|
|00001610| 74 63 68 72 65 61 64 20 | 33 30 0d 6a 75 6d 70 20 |tchread |30.jump |
|00001620| 37 31 0d 21 0d 21 20 52 | 49 4e 47 20 65 6e 74 72 |71.!.! R|ING entr|
|00001630| 79 20 70 6f 69 6e 74 0d | 21 20 49 66 20 6f 72 69 |y point.|! If ori|
|00001640| 67 69 6e 61 74 65 20 6d | 6f 64 65 20 72 65 74 75 |ginate m|ode retu|
|00001650| 72 6e 20 74 6f 20 77 61 | 69 74 69 6e 67 20 66 6f |rn to wa|iting fo|
|00001660| 72 20 69 6e 70 75 74 2e | 0d 21 20 45 6c 73 65 20 |r input.|.! Else |
|00001670| 63 6c 61 69 6d 20 74 68 | 65 20 73 65 72 69 61 6c |claim th|e serial|
|00001680| 20 70 6f 72 74 20 61 6e | 64 20 72 65 74 75 72 6e | port an|d return|
|00001690| 2e 0d 21 0d 40 4c 41 42 | 45 4c 20 36 38 0d 69 66 |..!.@LAB|EL 68.if|
|000016a0| 4f 52 49 47 49 4e 41 54 | 45 20 33 32 0d 75 73 65 |ORIGINAT|E 32.use|
|000016b0| 72 68 6f 6f 6b 20 31 0d | 6e 6f 74 65 20 22 41 6e |rhook 1.|note "An|
|000016c0| 73 77 65 72 69 6e 67 20 | 63 61 6c 6c 2e 2e 2e 22 |swering |call..."|
|000016d0| 20 32 0d 6a 75 6d 70 20 | 33 32 0d 21 0d 21 20 45 | 2.jump |32.!.! E|
|000016e0| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 73 20 2d 20 |rror mes|sages - |
|000016f0| 6c 61 62 65 6c 20 72 61 | 6e 67 65 20 69 73 20 37 |label ra|nge is 7|
|00001700| 31 2d 31 30 30 0d 21 0d | 21 20 4d 6f 64 65 6d 20 |1-100.!.|! Modem |
|00001710| 4e 6f 74 20 52 65 73 70 | 6f 6e 64 69 6e 67 0d 40 |Not Resp|onding.@|
|00001720| 4c 41 42 45 4c 20 37 31 | 0d 65 78 69 74 20 2d 36 |LABEL 71|.exit -6|
|00001730| 30 31 39 0d 21 0d 21 20 | 4e 6f 20 44 69 61 6c 20 |019.!.! |No Dial |
|00001740| 54 6f 6e 65 0d 40 4c 41 | 42 45 4c 20 37 32 0d 65 |Tone.@LA|BEL 72.e|
|00001750| 78 69 74 20 2d 36 30 32 | 30 0d 21 0d 21 20 4e 6f |xit -602|0.!.! No|
|00001760| 20 43 61 72 72 69 65 72 | 20 6f 72 20 45 72 72 6f | Carrier| or Erro|
|00001770| 72 0d 40 4c 41 42 45 4c | 20 37 33 0d 65 78 69 74 |r.@LABEL| 73.exit|
|00001780| 20 2d 36 30 32 31 0d 21 | 0d 21 20 42 75 73 79 0d | -6021.!|.! Busy.|
|00001790| 40 4c 41 42 45 4c 20 37 | 34 0d 65 78 69 74 20 2d |@LABEL 7|4.exit -|
|000017a0| 36 30 32 32 0d 21 0d 21 | 20 4e 6f 20 41 6e 73 77 |6022.!.!| No Answ|
|000017b0| 65 72 0d 40 4c 41 42 45 | 4c 20 37 35 0d 65 78 69 |er.@LABE|L 75.exi|
|000017c0| 74 20 2d 36 30 32 33 0d | 21 0d 21 20 49 6e 76 61 |t -6023.|!.! Inva|
|000017d0| 6c 69 64 20 56 61 72 73 | 74 72 69 6e 67 20 56 61 |lid Vars|tring Va|
|000017e0| 6c 75 65 0d 40 4c 41 42 | 45 4c 20 37 36 0d 65 78 |lue.@LAB|EL 76.ex|
|000017f0| 69 74 20 2d 36 30 32 37 | 0d 21 0d 40 4c 41 42 45 |it -6027|.!.@LABE|
|00001800| 4c 20 38 30 0d 65 78 69 | 74 20 2d 36 30 30 38 0d |L 80.exi|t -6008.|
|00001810| 21 0d 21 20 48 61 6e 67 | 20 75 70 20 74 68 65 20 |!.! Hang| up the |
|00001820| 6d 6f 64 65 6d 20 2d 20 | 6c 61 62 65 6c 20 72 61 |modem - |label ra|
|00001830| 6e 67 65 20 69 73 20 31 | 30 31 2d 31 32 30 0d 21 |nge is 1|01-120.!|
|00001840| 0d 40 48 41 4e 47 55 50 | 0d 40 4c 41 42 45 4c 20 |.@HANGUP|.@LABEL |
|00001850| 31 30 32 0d 66 6c 75 73 | 68 0d 73 65 74 74 72 69 |102.flus|h.settri|
|00001860| 65 73 20 30 0d 40 4c 41 | 42 45 4c 20 31 30 35 0d |es 0.@LA|BEL 105.|
|00001870| 21 0d 21 20 44 72 6f 70 | 20 74 68 65 20 6d 6f 64 |!.! Drop| the mod|
|00001880| 65 6d 20 69 6e 74 6f 20 | 63 6f 6d 6d 61 6e 64 20 |em into |command |
|00001890| 6d 6f 64 65 20 77 69 74 | 68 20 61 20 73 68 6f 72 |mode wit|h a shor|
|000018a0| 74 20 62 72 65 61 6b 2e | 0d 21 20 52 65 70 65 61 |t break.|.! Repea|
|000018b0| 74 20 68 61 6e 67 75 70 | 20 63 6f 6d 6d 61 6e 64 |t hangup| command|
|000018c0| 20 61 6e 64 20 65 73 63 | 61 70 65 20 73 65 71 75 | and esc|ape sequ|
|000018d0| 65 6e 63 65 20 33 20 74 | 69 6d 65 73 20 6d 61 78 |ence 3 t|imes max|
|000018e0| 2e 0d 21 0d 4c 42 72 65 | 61 6b 0d 40 4c 41 42 45 |..!.LBre|ak.@LABE|
|000018f0| 4c 20 31 30 38 0d 70 61 | 75 73 65 20 31 30 0d 66 |L 108.pa|use 10.f|
|00001900| 6c 75 73 68 0d 6d 61 74 | 63 68 63 6c 72 0d 6d 61 |lush.mat|chclr.ma|
|00001910| 74 63 68 73 74 72 20 31 | 20 31 31 31 20 22 4e 4f |tchstr 1| 111 "NO|
|00001920| 20 43 41 52 52 49 45 52 | 5c 31 33 5c 31 30 22 0d | CARRIER|\13\10".|
|00001930| 6d 61 74 63 68 73 74 72 | 20 32 20 31 31 31 20 22 |matchstr| 2 111 "|
|00001940| 4f 4b 5c 31 33 5c 31 30 | 22 0d 6d 61 74 63 68 73 |OK\13\10|".matchs|
|00001950| 74 72 20 33 20 31 31 31 | 20 22 45 52 52 4f 52 5c |tr 3 111| "ERROR\|
|00001960| 31 33 5c 31 30 22 0d 77 | 72 69 74 65 20 22 41 54 |13\10".w|rite "AT|
|00001970| 48 5c 31 33 22 0d 6d 61 | 74 63 68 72 65 61 64 20 |H\13".ma|tchread |
|00001980| 33 30 0d 69 6e 63 74 72 | 69 65 73 0d 69 66 74 72 |30.inctr|ies.iftr|
|00001990| 69 65 73 20 33 20 37 31 | 0d 21 20 6e 6f 20 72 65 |ies 3 71|.! no re|
|000019a0| 73 70 6f 6e 73 65 2c 20 | 74 72 79 20 65 73 63 61 |sponse, |try esca|
|000019b0| 70 65 20 73 65 71 75 65 | 6e 63 65 0d 6d 61 74 63 |pe seque|nce.matc|
|000019c0| 68 63 6c 72 0d 6d 61 74 | 63 68 73 74 72 20 31 20 |hclr.mat|chstr 1 |
|000019d0| 31 30 38 20 22 4f 4b 5c | 31 33 5c 31 30 22 0d 70 |108 "OK\|13\10".p|
|000019e0| 61 75 73 65 20 31 31 0d | 77 72 69 74 65 20 22 2b |ause 11.|write "+|
|000019f0| 2b 2b 22 0d 70 61 75 73 | 65 20 31 31 0d 6d 61 74 |++".paus|e 11.mat|
|00001a00| 63 68 72 65 61 64 20 31 | 35 0d 6a 75 6d 70 20 31 |chread 1|5.jump 1|
|00001a10| 30 35 0d 21 0d 21 20 52 | 65 63 61 6c 6c 20 66 61 |05.!.! R|ecall fa|
|00001a20| 63 74 6f 72 79 20 73 65 | 74 74 69 6e 67 73 2e 20 |ctory se|ttings. |
|00001a30| 28 73 65 65 20 6e 6f 74 | 65 20 61 74 20 74 6f 70 |(see not|e at top|
|00001a40| 20 6f 66 20 73 63 72 69 | 70 74 29 0d 21 0d 40 4c | of scri|pt).!.@L|
|00001a50| 41 42 45 4c 20 31 31 31 | 0d 70 61 75 73 65 20 31 |ABEL 111|.pause 1|
|00001a60| 35 0d 6d 61 74 63 68 63 | 6c 72 0d 6d 61 74 63 68 |5.matchc|lr.match|
|00001a70| 73 74 72 20 31 20 31 31 | 34 20 22 4f 4b 5c 31 33 |str 1 11|4 "OK\13|
|00001a80| 5c 31 30 22 0d 77 72 69 | 74 65 20 22 41 54 26 66 |\10".wri|te "AT&f|
|00001a90| 5c 31 33 22 0d 6d 61 74 | 63 68 72 65 61 64 20 33 |\13".mat|chread 3|
|00001aa0| 30 0d 6a 75 6d 70 20 37 | 31 0d 21 0d 40 4c 41 42 |0.jump 7|1.!.@LAB|
|00001ab0| 45 4c 20 31 31 34 0d 65 | 78 69 74 20 30 0d 21 0d |EL 114.e|xit 0.!.|
|00001ac0| 21 20 4c 61 62 65 6c 73 | 20 31 32 31 2d 31 32 38 |! Labels| 121-128|
|00001ad0| 20 61 72 65 20 72 65 73 | 65 72 76 65 64 20 66 6f | are res|erved fo|
|00001ae0| 72 20 66 75 74 75 72 65 | 20 65 6d 65 72 67 65 6e |r future| emergen|
|00001af0| 63 79 20 68 61 63 6b 73 | 0d 21 00 00 00 00 00 00 |cy hacks|.!......|
|00001b00| 00 00 01 00 00 00 02 85 | 00 00 01 85 00 00 00 8b |........|........|
|00001b10| 00 00 0c 7d 13 48 79 70 | 65 72 54 61 6c 6b 20 52 |...}.Hyp|erTalk R|
|00001b20| 65 66 65 72 65 6e 63 65 | 02 00 00 00 53 54 41 4b |eference|....STAK|
|00001b30| 11 50 53 49 20 50 6f 77 | 65 72 4d 6f 64 65 6d 20 |.PSI Pow|erModem |
|00001b40| 49 49 02 00 00 00 50 61 | 72 74 53 49 54 21 00 00 |II....Pa|rtSIT!..|
|00001b50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 af 33 70 07 00 00 | 00 00 00 00 03 10 11 88 |...3p...|........|
|00001b80| 00 03 00 00 00 00 00 00 | 00 00 00 00 00 00 06 00 |........|........|
|00001b90| 00 00 0c 80 00 48 03 00 | 00 00 00 00 00 00 00 00 |.....H..|........|
|00001ba0| 00 00 0c 7c 11 48 79 70 | 65 72 43 61 72 64 20 50 |...|.Hyp|erCard P|
|00001bb0| 72 6f 67 72 61 6d 00 00 | 00 00 00 00 00 00 00 00 |rogram..|........|
|00001bc0| 00 00 00 00 0a 00 00 00 | 0c 80 04 48 6f 6d 65 81 |........|...Home.|
|00001bd0| 02 00 02 00 53 54 41 4b | 57 49 4c 44 01 00 00 00 |....STAK|WILD....|
|00001be0| 00 80 00 00 00 00 0c 81 | 00 00 00 00 d2 c0 00 00 |........|........|
|00001bf0| d8 00 00 00 00 00 05 e1 | 00 00 08 00 a4 58 5d 00 |........|.....X].|
|00001c00| 00 00 00 05 01 00 ff ff | ff 00 00 00 48 00 09 4d |........|....H..M|
|00001c10| 6f 6e 61 63 6f 00 a6 fc | 18 00 00 00 00 00 00 00 |onaco...|........|
|00001c20| 40 00 01 f9 fc 00 2c 00 | d1 00 9f 01 1e 00 a6 00 |@.....,.|........|
|00001c30| 06 00 04 00 3c 00 24 02 | 6d 02 ed 00 3c 00 24 02 |....<.$.|m...<.$.|
|00001c40| 6d 02 ed ad be 1a 76 00 | 00 00 b0 00 00 00 b0 00 |m.....v.|........|
|00001c50| 00 00 00 01 00 00 00 00 | 1e 00 3c 00 24 02 6d 02 |........|..<.$.m.|
|00001c60| ed 00 3c 00 24 02 6d 02 | ed 00 00 00 00 00 00 00 |..<.$.m.|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 b0 af 54 68 69 73 |........|....This|
|00001c80| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 73 20 63 | file co|ntains c|
|00001c90| 6f 6d 6d 61 6e 64 73 20 | 74 68 61 74 20 63 6f 6e |ommands |that con|
|00001ca0| 74 72 6f 6c 20 61 20 4d | 6f 64 65 6d 2e 20 20 20 |trol a M|odem.   |
|00001cb0| 54 6f 20 61 64 64 20 74 | 68 69 73 20 66 75 6e 63 |To add t|his func|
|00001cc0| 74 69 6f 6e 61 6c 69 74 | 79 20 74 6f 20 41 70 70 |tionalit|y to App|
|00001cd0| 6c 65 20 52 65 6d 6f 74 | 65 20 41 63 63 65 73 73 |le Remot|e Access|
|00001ce0| 2c 20 70 6c 61 63 65 20 | 74 68 69 73 20 66 69 6c |, place |this fil|
|00001cf0| 65 20 69 6e 20 74 68 65 | 20 4d 6f 64 65 6d 20 53 |e in the| Modem S|
|00001d00| 63 72 69 70 74 73 20 66 | 6f 6c 64 65 72 20 75 6e |cripts f|older un|
|00001d10| 64 65 72 20 79 6f 75 72 | 20 45 78 74 65 6e 73 69 |der your| Extensi|
|00001d20| 6f 6e 73 20 66 6f 6c 64 | 65 72 2e 00 00 00 30 02 |ons fold|er....0.|
|00001d30| 10 80 00 00 00 03 32 2e | 31 25 32 2e 31 2c 20 a9 |......2.|1%2.1, .|
|00001d40| 20 41 70 70 6c 65 20 43 | 6f 6d 70 75 74 65 72 2c | Apple C|omputer,|
|00001d50| 20 49 6e 63 2e 20 31 39 | 39 31 2d 31 39 39 36 00 | Inc. 19|91-1996.|
|00001d60| 00 00 22 02 10 80 00 00 | 00 03 32 2e 31 17 41 70 |..".....|..2.1.Ap|
|00001d70| 70 6c 65 20 52 65 6d 6f | 74 65 20 41 63 63 65 73 |ple Remo|te Acces|
|00001d80| 73 20 32 2e 31 00 00 01 | 00 00 00 02 85 00 00 01 |s 2.1...|........|
|00001d90| 85 00 00 00 8b 00 97 26 | 60 10 2a 00 00 00 1c 00 |.......&|`.*.....|
|00001da0| 86 00 03 6d 6c 74 73 00 | 00 00 22 4d 50 53 52 00 |...mlts.|.."MPSR.|
|00001db0| 01 00 2e 53 54 52 20 00 | 00 00 46 76 65 72 73 00 |...STR .|..Fvers.|
|00001dc0| 01 00 52 00 00 00 00 00 | 00 00 00 00 00 00 00 03 |..R.....|........|
|00001dd0| ed ff ff 00 00 00 09 00 | 00 00 00 03 f0 ff ff 00 |........|........|
|00001de0| 00 00 55 00 00 00 00 bf | f3 ff ff 20 00 00 77 00 |..U.....|... ..w.|
|00001df0| 00 00 00 00 01 ff ff 20 | 00 01 2b 00 00 00 00 00 |....... |..+.....|
|00001e00| 02 ff ff 20 00 01 5f 00 | 97 26 14 04 6d 6c 74 73 |... .._.|.&..mlts|
|00001e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+